﻿Public Class ucNotificationImage
	Public Sub New()
		InitializeComponent()

		Dim ary = clsNotificationImage.GetSystemImagesList
		If ary Is Nothing Then Exit Sub
		cmbSystemImage.Items.AddRange(ary)
		cmbSystemImage.SelectedIndex = 0
	End Sub

	Private Sub dlgSelectSoundFile_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles dlgSelectImageFile.FileOk
		txtImageFile.Text = dlgSelectImageFile.FileName
	End Sub

	Private Sub btnSelectImageFile_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSelectImageFile.Click
		dlgSelectImageFile.FileName = txtImageFile.Text.Trim()
		dlgSelectImageFile.ShowDialog(Me)
	End Sub

	Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPreview.Click
		If DataSource Is Nothing Then Exit Sub
		DataSource.ShowImage(False)
	End Sub
End Class
